(require_unwind): Return Lisp_Object.

diff --git a/src/ChangeLog b/src/ChangeLog
index 04042fab40b16d797fafd27cb7c473666815c6f1..98c2e0d87c524bed34b85a871b3045d78c52da37 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2001-10-31  Gerd Moellmann  <gerd@gnu.org>
+
+       * fns.c (require_unwind): Return Lisp_Object.
+
 2001-10-31  Pavel Jan\e,Bm\e(Bk  <Pavel@Janik.cz>
 
        * keyboard.c (lucid-menu-bar-dirty-flag): Doc fix.

diff --git a/src/fns.c b/src/fns.c
index 62f9d85682cbd541590a7a75b9d36e6e739cf448..15415d9a1ad8104e7407ebeef13392f910841b3e 100644 (file)
--- a/src/fns.c
+++ b/src/fns.c
@@ -3082,10 +3082,11 @@ particular subfeatures supported in this version of FEATURE.  */)
 
 Lisp_Object require_nesting_list;
 
+Lisp_Object
 require_unwind (old_value)
      Lisp_Object old_value;
 {
-  require_nesting_list = old_value;
+  return require_nesting_list = old_value;
 }
 
 DEFUN ("require", Frequire, Srequire, 1, 3, 0,